home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
FishMarket 1.0
/
FishMarket v1.0.iso
/
fishies
/
326-350
/
disk_339
/
pcq
/
examples
/
ansi.p
< prev
next >
Wrap
Text File
|
1992-05-06
|
1KB
|
69 lines
Program ANSIThing;
{
This program demonstrates a few of the features of the console
made possible by ANSI codes.
}
Procedure Delay(f : Integer);
External;
Function strlen(s : String) : Integer;
External;
procedure GotoXY(x, y : Short);
begin
Write('\c', y, ';', x, 'H');
end;
Procedure ClrEOL;
begin
Write('\cK');
end;
Procedure ClrScr;
begin
{
GotoXY(1, 1);
Write('\cJ');
}
Write(Chr(12));
end;
Procedure Insert(s : String);
begin
Write('\c', StrLen(s), Chr($40));
Write(s);
end;
var
I : integer;
begin
GotoXY(50, 12);
Delay(20);
GotoXY(60, 14);
Delay(20);
GotoXY(4, 4);
Delay(20);
GotoXY(1,1);
for I := 1 to 20 do
Writeln('This is thejlasdflskajdflsadjflsakjdfsldjf');
for I := 1 to 20 do begin
GotoXY(5, I);
Delay(20);
ClrEOL;
Delay(20);
end;
ClrScr;
Delay(20);
for I := 1 to 20 do
Writeln('ABCDEFGHIJKLMNOPQRSTUVWXYZ1234567890');
Delay(20);
for I := 1 to 8 do begin
GotoXY(4,4);
Delay(20);
Insert("Froombaba");
end;
Delay(20);
GotoXY(1,21);
end.